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Nous voici déjà rendu au quinzième numéro de SIN, Vous allez 
peut-être remarquer que le BL occupe une place de plus en plus 
importante, ceci grace aux utilisateurs qui m'envoie des articles 
pour publication. Pour le 2068/SPECTRUM, Simon Rioux m'informe 
qu'il va écrire régulièrement 2 rubriques appelées: SPECTROCRAMME 
pour les nouveaux logiciels pour le SPECTRUM/2068 et ZONE 
INTERDITE qui va vous dévoiler les secrets nécessaires pour 
réaliser des scores fabuleux. f 


Egalement Simon ma fait parvenir des en-têtes pour ses 
MICRÜ-MUSIQUE. Mais malheureusement, trop tard. J'ai pensé vous 
en faire part quand même quand ils sont três biens! 


Et enfin, voici 2 images digitalisées réalisées sur le SPECTRUM. 
Pas mal, n'est-ce pas? 


2... BHRISTIE... 


LOGICIELS OL 


MICRODEAL de sortir un jeu qui fera plaisir a bien des He, Il s'agit ici d'une 
version de BOULDER DASH. Le logiciel s'appelle STONE RAIDER II. Il y a 32 caves 
differentes a visiter. Cout: £7.95 


I] est a noter que MICRODEAL offre une panoplie complete de jeux pour le OL. 
1- THE KING £7.50 clone de DONKEY KONG, plusieurs ecrans 
2- AQUANAUT 471 £14 aventure graphique dans un sous-marin 
3- LANDS OF HAVOC £10.00 arcade-aventure avec 2000 ecrans 
4- CUTHBERT IN SPACE £7.50 arcade, plusieurs ecrans 
5- CRAZY PAINTER #5 arcade 
8- HOPPER #5 clone de FROGGER 


MICROÜDEAL Box 68, St Austell, Cornwall Р125 4YB, ENGLAND 
SELLASOFT offre un logiciel de jeux appelle TANK BUSTER, simulation d'attaque 
avec char d'assaut, Cout: £14.95 


SELLASOFT 23 LOVERIDGE AVENUE, KEMPSTON, BEDFORD, MK42 ВЕ, ENGLAND 


LOGICIELS SPECTRUM 
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Simon Rioux m'envoie un 


disponible chez son vendeur fà 
noter que tous les prix sont 
inclure £0.75 par cassette pour 


e liste des logiciels pour le SPECTRUM 
vori, CUT PRICE SOFTWARE. П est à 


en LIVRES STERLING et il faut 


également spécifier “for the SPECTRUM". 


Dragon's Lair 5,75 
Heavy on the Magick 5,95 
Superbowl 2,95 
1942 5.50 
Jack the Ripper 5.30 
шул 5,90 
Bomb jack 5,50 
Revolution 5,50 
Lightforce 8,75 
Price of Magick 7.25 
Infiltrator 7.23 
Konani's Golf 5,50 
The Planets 5,05 


Sold a million 2 5.95 
Ghost k Gobblins 5.50 


Mag Max 5,50 
Sam Fox Strip Poker 5.50 
Movie 5,50 


Vier Аге Kung Fu 5.50 
Crah Smash's 2 5,95 


Batman 5.50 
Durrell's Big 4 5.93 
Uchi Marta 6. 30 
Jewels Darkness 11.95 
Highlander 5.50 
TT Racer 1.25 
Laser Basic 11.00 
Stainless Steel 5,50 
Pyracuse 5. 98 
Scooby Doo 5,80 
Paperboy 3,90 
Dark Sceptre 10,95 
Mikie 5,50 
Ninja Master 1.90 


Big Cave Adventure 5.50 


balvan 5,50 
Elite 10,95 
Enpire 5,08 
Nexus 6,95 
Great Escape 5.40 
Equinox 6,95 


Sold aillion 3 5.25 
Laser Conpiler 5,95 


Its a KO 5.90 
Uridium 5.50 
Trap door 5,50 
Hardball 5.30 
Dynanite Dan 2 5.50 
Bobby Bearing 5.30 
Theatre Europe 7.95 
Асе 7.25 
Graph Adv Creator 18.00 
Green Beret 5.50 
. Nightmare rally 5,50 
Miami Vice 5,50 
Cauldron 2 5.50 
Тһе Boggit 5.50 
Fist 2 5,50 
Knight Rider 5,50 
Dan Dare 5,25 
Heartland 6,93 
WAR 5,50 
Laser Genius 10,95 
Parallax 5.50 


Best of Beyond 7.25 
Trivial Pursuit 11.95 
Space Harrier 5.50 
Konani Tennis 5,50 


--5 £i donne environ $2.12 CAN. 


б. 


les frais d'envoi. 
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INTRODUCTION 


Nous allons entreprendre une série sur la programmation en 
langage machine sur le 2068. Ces articles seront publiés avec 
dans l'idée que le lecteur  posséde déjà quelques bases 
élémentaires en programmation du 780, 


Cette série s'interessera à la programmation aachine spécifique 
au 2068, laissant aux ouvrages spécialisés la description et 
l'apprentissage des instructions du 180. Nous étudieront 
l'utilisation des routines graphiques présentes dans la ROM, le 
calcul en virgules flottantes, les routine entrées-sorties, 
etc... 


Les 2 premiers articles seront consacrés à un aspect très 
important en prograamation, l'interface BASIC-MACHINE. 


INTERFACE BASIC €-) MACHINE (1474 partie) 


En SINCLAIR BASIC, on appelle une routine machine avec 1а 
fonction USR suivi de l'adresse oü débute celle-gi. USR étant une 
fonction, nous devons utiliser une commande pour que la fonction 
puisse être utilisée, Au retour en BASIC, la fonction USR 
retourne toujours le contenu du régistre BC. 


EXEMPLE1 Bi nous utilisons LET А=0БЯ 50000. Lorsque que la 
routine qui se trouve à l'adresse 50000 жега terminé, 
la variable À contiendra le contenu de BC. 

Par contre, PRINT USR 50000 affichera à l'écran le 
contenu de BC. 

La plupart du temps, le programmeur utilisara 

RANDOMIZE USR car cela à peut d'effet sur le program- 


me BASIC et c'est plus rapide à taper... 


Ceci est DK si nous voulons que le langage machine passe de 
l'information au BASIC, Mais si nous voulons que le BASIC donne 
de l'information à la routine machine, que faire? 


La plus simple méthode, et par conséquent la moins intéressante à 
utiliser consiste à passer l'information via la commande POKE. 


г» 


GE 


EXEMPLE: BASIC-) 10 CLEAR 49999 с.м.-> ORG 50000 
20 РОКЕ 50000,0 VAL1 DEER 00 
ЗО РОКЕ 50001,1 VAL2 DEER O0 
40 PRINT USR 50000 LD ВС, ({VAL1) 
RET 


Notre programme BASIC passe les paramètres О et 1 dans les 
adresses correspondantes à VALI et VAL2. Remarquez qu'en langage 
machine, on parie wn HEXADECIMAL wt l'octwt le moins mignificatif 


vient toujours en premier. 


Voici quelques méthodes qui sont plus faciles d'utilisation. 


Si nous avons 2 paramètres à passer, nous pouvons faire | 
INPUT USR айгевве,рагат&Їге1‚,рагат&їге2 | 

et, au tout début de notre routine, appeler les 2 routines de la 

ROM situées à 7132 (1BBCh) et 9824 (2660h). Ces routines 

évalueront les 2 paramètres, ce qui signifie que ces paramètres 

peuvent être des variables, des fonctions, ou des chiffres. 


EXEMPLE: INPUT USR 50000,1,2 INPUT USR $0000,CODE "A",S 
INPUT USR $0000,4,B INPUT USR 50000,ҒМ B(2),X1 


INPUT USR 50000,4(2,2),B(1,2) 


En pratique, cela pourrait se passer ainsi. Supposons que nous 
avons une routine qui simule la commande PLOT à l'adresse 50000, 


En BASIC -> LET А=20: LET B=50 
INPUT USR 50000,A,B: REM PLOT 20,50 


En ASSEMBLEUR -) 0А6 50000 


CALL 7132 } registre C=20 

CALL 9824 | registre Ве50 
; maintenant ВС contient 
; nos paramètres, 

CALL PLOT | PLOT est la routine 
; principale. 

RET 


Cette méthode а ses limitations. Elle ne peut accepter plus de 2 
paramètres à la fois. Et on doit ABSOLUMENT avoir 2 paramètres, 
sinon le 2068 se retrouveras dans l'espace sidéral d’où aucun 
ordinateur ne revient sans avoir perdu complètement la mémoire! 


B EM 


L'autre méthode prend la forme suivante: 
IF USR adresse THEN REM parl,... 

Cette méthode a l'avantage de pouvoir prendre plusieurs paramètre 
mais demande un plus grand effort de 1а part du programmeur саг 
celui-gi doit entièrement décoder les paramètres, Une application 
de cette méthode est apparue dans SIN#8 alors qu'une routine nous 
permettait d'utiliser 10 polices de caractères différentes, 
EXEMPLE1 IF UBR 64000 THEN REM 81 -> caractère gras 


IF МЕН 54000 THEN REM 84 -> caractère italique 


Mais pourquoi "B1" et non "1" tout simplement. Cela а été fait 
dans le but de simplifier le plus possible le programme. Sans 
"B", le "I" se serait retrouvé en virgule flottante ce qui est 
plus compliqué à traiter que "1" en АСИ. 


Dans notre routine nous devons vérifier si 1а routine a été 
appellé de fagon correcte, i.e. de la forme vue gi-haut. Nous 
vérifions si il y а "ТНЕМ", "ЕМ" et puis "8", Si oui, on 
interprete la suite. Si non, on arrete avec un message d'erreur. 


BASIC : exenple-> IF USR adresse THEN REM 61 
ASSEMBLEUR ; RST 18h interprete BASIC 

CP CBh code ASCII "THEN" 

JR NZ,erreur sinon saut à erreur 

RST 20h sinterprete prochaine 
scommande BASIC 

CP EAh scode ASCII "E* 

JR NZ,erreur білеп saut à erreur 

LD HL,SCSDh svariable-systène 
;CHADD 

INC (HL) 

RST 18h jinterprete BASIC 

CP 40h ;code ASCII "REM" 

JR NZ,erreur ;sinon saut à erreur 

RST 20h sinterprete prochaine 
commande BASIC 

CP 30h code ASCII "0" 

JP I,routinel {51 oui saut à routinel * 

CP 31h code ASCII "1" 

JP l,routine2 si oui saut à routine? ! 

CP 32h code ASCII "2" 

JP 1,rautines {51 oui saut à routine? ! 


[> dg 


grresr 555,25 PENRISSIIT I. Biiiili 
БЕР 2 Variable rz: 42252) 
sortie LD HL,SCSDh jnaintenant on rege: 
DEC (HL) }1а variable système 
DEC (HL) ;CHADD pour qu'au retour 
DEC (HL) jle BASIC recommence à 
RET ipartir de "THEN" 


1- А la fin de ces routines on doit retrouver JP sortis 


Cette méthode а cependant quelques désavantages, Les paranètres 
(80,81,etc,..) ne peuvent pas être des variables, Par exemple, on 
ne peut pas dire LET a$="@0":IF USR 50000 THEN REM a$, Aucune 
Commande пе peut suivent sur la même ligne le IF USR... 


Dans le prochain SIN, nous verrons d'autres méthodes pour 
faciliter l'utilisation de routine machine en BASIC. 


ІНШІ 


Voici quelques combinaisons de touches qui peuvent tre utile 
dans le logiciels EASEL. 


SHIFT F4 -) Permet de choisir la couleur de fond de l'écran. 
SHIFT F3 -> Efface la ligne de commande. 
SHIFT F5 -) Redessine l'écran. 


Cette dernière combinaison fonctionne également sur les autres 
logiciels PSION. Elle est utile si on "MULTITASK" (avec une 
extension mémoire) par exemple GUILL avec ARCHIVE, Lorsque vous 
passez d'une application à l'autre, vous n'avez qu'à faire SHIFT 
F8 pour "rafraichir" l'écran. 

UNTER ЕТГІ Neige ұла қайнай ке Pet кені 
Voici un petit programme amusant pour le SPECTRUM, je ne vous dit 
pas ce qu'il fait, essayez-le! 


10 REM source 2X COMPUTING 

20 REM Jan, 87 

30 CLEAR 45345: FOR nz65346 Т0 
85547: READ a: POKE npa: NEXT n 
40 PRINT $0;" 1982 Sinclair Research 
Linited" 

50 PAUSE 0: CLS : PRINT AT 10,9; 
FLASH 1;" SECURITY ALERT " 

80 RANDOMIZE USR 55344 

70 DATA 58,72,92,15,15,15,30,0 
:255,211,254, 238, 16,67, 16, 254, 23 
,32,245,251,24,234 


е 
Ф 
ql: expansion ram 
Cine оп le sait tous, une des caractéristiques importantes du 
is. est sa possibilité de faire tourner plusieurs programmes en 
тізе tenps, i.e. faire du MULTI-TASKING. Cependant le GL en 
„sesion de base possède 128K de mémoire. Cette mémoire se révèle 
itte insuffisante pour permettre à 2 programmes où plus de 


---abiter dans le OL. Pour remédier à cette situation, une 
extension de mémoire serait le bienvenue. 


"eet dans cette optique que је me suis procuré l'extension de 
нілсіге de SANDY. Elle offre 512K de RAM et se nomne THRU-CON RAM 
43D, Elle a 1 connecteur à chaque extrémité ceci est pour 
cernettre l'ajout d'un controlleur de disques. L'installation est 
«rès simple. On installe la carte dans la fente gauche du HL et 
-'est tout! Nous voilà avec 840К de RAM. Cependant de trés rare 
arogranne ont de la difficulté à fonctionner avec l'extension de 
sénoire (ex. PSION CHESS) pour remédier à cette situation il faut 
ur petit utilitaire appelé SHRINK qui fait croire au GL qu'il n'a 
zue 128K, si ce programme vous intéresse écrivez-noi! 


11 existe 2 sortes d'extension mémoire pour le Hr externe ou 
interne, La méthode interne consiste à faire du "PIGGY BACK", 
e, installer de la mémoire supplémentaire directement sur la 
aënoire déjà existante, de couper des traces, de mettre des 
setite fils et de changer le PROM de décodage. Cette méthode nous 
oblige à ouvrir la GL et par conséquent réservé au esprit 
aventureux. La méthode externe permet une execution un peu plus 
rapide des programmes car la mémoire supplémentaire et le circuit 
ie décodage est totalement isolé des 128K interne du AL, ceci 
implique que le rafraichissement de la nénoire vidéo (32K) ne 
"alentit en rien l'exécution d'un programme, 

:| existe plusieurs programmes qui permettre de faire du 
*"LTI-TASKING, celui que j'utilise c'est CHüice. Ce n'est pas le 
seilleur mais c'est le seul que je possède... 


24Dice demande que L'EPROM ICE soit en place. Il permet de faire 
tourner jusqu'à 4 programmes en nême tenps. Il suffit taut 
sinoienent d'indiquer combien de mémoire nous affectons à chacun 
et si nous voulons que l'écran soit sauvegarder. Pour passer 
d'une application à l'autre, on fait ALT F3 et nous sélectionnons 
le programme. Pour ma part, j'ai installer QUILL, ARCHIVE et un 
srogranne pour faire des étiquettes à l'imprimante, Ce programme 
3ASIC a été compilé avec SUPERCHARGE car seuls les programmes qui 
geuvent Être EXEC peuvent Etre "MULTI TASKer". 


d 


Bech: 


Tout ceci démontre encore une fois que le H est une machine qui 
n'a rien à envier aux autres, Car essayez de faire la même chose 
sur PC! Difficile et dispendieux. 


Les articles décrit dans cet article sont disponible chez: 


GAGNON ELECTRONIQUE, 390 Bl. Central Nord, Duberger 
Québec, БІР 3Р9 


Si vous faites face à un projet d'une certaine anpleur 
(construction d'une maison, d'un garage, mise au point d'un 
logiciel, ouverture d'un commerce, etc.) Project Planner peut 
vous aider. 


Précisons en premier lieu, car il semble que ces 
programmes soient assez mal connus, que OL Decision Maker 
viendrait avant Project Planner dans l'élaboration d'un 
projet. Si on prend l'exemple d'une maison, avec Decision 
Maker, en fixant certains critéres dont le critére économique 
est le plus évident, vous pourriez décider si vous faites 
construire, si vous construisez vous-même ou si vous achetez 
"clé en main", Ensuite Project Planner peut vous aider à 
planifier le projet que vous aurez choisi, 


Bref historique: 

C’est vers la fin des années 50 que l'ampleur de 
certains projets (navette, station orbitale...) place les 
ingénieurs devant des problèmes de planification 
excessivement complexes, Pour résoudre ces problèmes les 
ingénieurs ont recours cela va de soit à la simulation sur 
ordinateur, Des algorithmes sont ainsi créés qui vont aider à 
maitriser la complexité des projets spatiaux: Critical Path 
Analysis, Program Evaluation and Review Technic, Program 
Evaluation Research Task, Comme il arrive souvent en ce 
domaine, ces algorithmes ont été adaptés ` au 
nicro-ordinateurs, 


Application: 

Méme si les projets d'un individu sont moins complexes 
que ceux de la NASA, il n’en demeure pas moins que la 
puissance d'analyse que permet ce genre de programmes peut 
nous Être trés utile. Il est évident que l'estimation de la 
date de fin des travaux et des opérations critiques d'un 
projet individuel n'entraine pas des différences économiques 
se chiffrant en millions de dollars. Mais l'analyse de notre 
projet que nous force à faire Project Planner entraine de 
multiples effets bénéfiques: elle nous aide à cerner les 
différentes étapes, à les définir, à énumérer les prérequis 
de chacune, etc. Indépendanment donc des résultats que nous 
livre le H (aprés environ 15 secondes...), et qui s'avérent 
déjà essentiels à la planification d'un projet, le fait d'en 
étudier ainsi le cheminement en détail entraine une meilleure 
connaissance des tâches à accomplir,ce qui, en bout de 
compte, rend le projet moins ardu qu'il apparaissait au 
début... 

Exenple: 

Le listing qui suit concerne les premiéres étapes de la 
construction d'une maison (fondation et charpente}, Il a été 
produit par l'option "Charte" de Project Planner. Noter que 
les nos d'activités servent de pointeurs pour PP et non pas à 
identifier l'ordre dans lequel vont se dérouler les 
activités, Cet ordre dépend de la position de l'activité dans 


la liste, Le fait que les nos ne ве suivent pas en ordre de 
grandeur démontre que PP nous a obligé à mieux planifier 
certaines activités, 


Pour employer PP, on commence par entrer les activités 
inpliquées, ainsi que leur durée et l'activité prérequise à 
l'activité qu'on est en train d'éditer, ainsi que le coût 
s'il y a lieu. On peut définir combien de jours par semaine 
on travaillera au dit projet, le nombre de fêtes chônées dans 
l'année, et certaines dates repères où l’on voudrait que 
certaines activités soient terminées... А partir de ces 
données, PP peut nous fournir les différents rapports 
suivants, à l'écran ou sur papier: Une liste des activités 
telles qu'on les a entrées et qu'on peut remanier à volonté 
suivant les résultats de l'analyse précédente; une charte 
identifiant le cheminement critique sur une échelle de tenps 
avec le temps libre total (temps en "surplus") de certaines 
activités, le temps libre conflictuel (temps libre qui, si 
employé, diminuera le temps libre de d'autres activités) et 
les activités secondaires; une autre charte telle que la 


il 


dernière mais en chiffres plutôt que graphique; une liste des 
dates de début et de fin au plus tôt et au plus tard pour 


chaque activité, 


Voilà, Noter que les activités critiques sont celles 


identifiées раг un rectangle, les асі, secondaires par un À, 


le temps libre par :::: et le temps conflictuel par des gros 


points. 
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SIIAPIOY 


Project Planner vient avec 2 cartouches d'exenples, mais 
elles ne fonctionnent pas sur un GL américain (JSU ROM). Mais 
avec le manuel de 70 pages qui vient avec ce programme on 
peut très bien se débrouiller sans les exemples sur 
cartouches, 


Noter en terminant que si le cheminement apparait 
évident sur cette charte, il ne l'était pas quand j'ai 
commencé à planifier ce projet... 

Abréviations: A.=acheter І, ou INSTALL-installer 

ISüLzisolation PV=pare-vapeur etc. 


Jebs 
C.P.41 La Sarre 
P.O. 4192 234 


MUTO PAULS | 
3 CAVE) | 


Voici un programme qui transforme votre HL en générateur de MOTS 
CACHES. Premièrement, vous dites combien de mots vous voulez 
avoir de cachés de votre grille vous avez droit à un maximum de 
15 mots. Il est également possible de faire sortir votre grille 
sur votre imprimante qui est reliée à SERI, 


Auteur: Yves Gagnon 


100 REMark ИИН 
110 REMark 1$ Yves Gagnon --- 15/01/87 11 
120 REMark ИИН 
130 : 

140 REMark ` //// MOTS CACHES \\\\ 

130 : 

160 REMark 22)? MODE MONITEUR ( Fi ) << 
170 : 

180 : 

190 INIT 

200 INSTRUCTIONS 

210 MOTS 1 

220 HOTS 2 

230 MOTS 3 

240 SELECTIONS 

250 GRILLE 

260 SOLUTION 

270: 13 
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280 DEFine PRüCedure INIT 

290 MODE 4 

300 DIM H$(15,15):DIM 6820, 2 РОКЕ W 153975,236 

310 B$=" 

320 FOR 1=1 ТО 20:6$(I)=B#:END FOR I 

330 OPEN#4,scr 512x23600X0: PAPERIM , O1 CLE I4 

340 HINDOH#2,512,30,0,0:PAPER#2, 1: BORDER#2, 2, 7: CLS42 

350 CS12E42,2,1,:PRINT#2, [III MOTS CACHES NN? 
350 SCROLL#2, 4 

370 WINDOW#1,270,212,0,30:PAPER#1, 1: BORDER#1, 2, 7: INK#1,7:CLGH1 
280 WINDOREO, 235, 25, 270, 217 : PAPER&O, 1: BORDER#O, 2, 7: CLS&0 

390 QPENES,SCR _240K188A270K30: PAPER#S, 1: BORDERES, 2, 7: INK45, 7: CLSR3 
400 QPENES, бегі 

410 END DEFine 

420 : | 

430 DEFine PRüCedure INSTRUCTIONS 

40 PRINTH,! | ---------------------------------- ; 

430 PRINT," Hit INSTRUCTIONS SH. 

40 PRINTH,? | ---------------------------------- 

470 PRINTE,’ TAPEZ UNE LISTE DE (5 А 15 MOTS) DE '; 
480 РКІМТЕІ, °15 LETTRES AU MAXIMUM." 

490 РАІМТЕІ: РАІМТЕІ, ' LES MOTS SE TROUVENT CACHES DANS UNE 
500 PRINTKI,'GRILLE DE (20x20) DE LETTRES.” 


510 PRINTHIPRINTH ,? LES MOTS CACHES PEUVENT AVOIR PRIS 
320 PRINT#{,' DIVERSES DIRECTIONS.” 

330 PRINTEIIPRINTRI,' POUR OBTENIR LA SOLUTION APPUYER SUR 
540 PRINT#I,'UNE TOUCHE ET VOUS VERREZ LES MOTS  '; 

850 PRINT#{, "VONT DEVENIR ROUGE, ? 

360 PRINT#I: PRINTH , ' IL EST POSSIBLE DE FAIRE COPIE DE LA 
370 PRINT#1, GRILLE SUR UNE IMPRIMANTE,’ 

380 PRINT#I:PRINT#I,* Ht BONNE CHANCE un 
990 END DEFine 

600 : 

510 DEFine PRüCedure MOTS 1 

820 CLSRO:PRINT&O;' ENTREZ LE NOMBRE DE MOTS ?':INPUTEO;MOTSS 
630 IF MOTS$z"" THEN GO TO 520 

640 NH=HOTS$ 

650 IF NMCS OR NM>15 THEN 

550 CLE#0 

670 ВЕЕР 5000,1 

880 PRINT$0," ATTENTION IL Y A ERREUR. ! HOY ‹ 5 ЕТ 13 MOTS.’ 
590 PAUSE 150 

700 MOTS | 

710 END IF 

720 END DEFine 

730 : 


H 


, 


~. 


-— 


740 DEFine PROCedure MOTS 2 

750 CLS83:CBI2E5, 2, Ot PRINTES 

70 PRINTS,” LES WOCH MOTS SONT: ' 

770 PRINTS, % zzzzzzzzzzzzzzzz! 

780 END Біле 

790 : 

800 DEFine PROCedure MOT 3 

810 FOR 151 TO NM 

820 CLS#0:PRINT#0; 'ENTREZ LE MOT Nd: '; s I: INPUT#0: M$ (Т 
830 IF LEN(M$(I))218 OR M$(I)z?? THEN 

840 ВЕЕР 5000,1 

850 CLS#O:PRINTHO, "ATTENTION 111 13 LETTRES MAXIMUM, ' 
860 PAUSE 150:CLG80 

870 50 TO 820 

880 END IF 

890 CSITER#S,1,0:PRINT#S," ": М1) 

900 END FOR I 

910 ВЕЕР 5000,1 


920 CLSRO:PRINTRO UN INSTANT S,V,P, 


930 END DEFine 

940 : 

930 DEFine PROCedure SELECTIONS 

900 FOR 1=1 TO NM 

970 FOR J={ TO 15:IF WI, isen *eLaJ:60 TO 990 — 
980 END FOR J 

990 S=-INT(RND+.5):IF Bet Bei 

1000 DzINT(RNDI14)1 

1010 XsINT(RND120) 41 

1020 Y21INT (RND120)41 

1030 SELect ON D 

1040 z1:HÜRIZONTAL 

1080 =2: VERTICAL 

1080 =3:7=-1:HAUT BAS 

1070 =4:72=1:HAUT BAS 

1080 END SELect 

1090 END DEFine 

1100 : 

1110 DEFine PROCedure HORIZONTAL 

1120 PzX* (L-1)48: IF PX1 OR P220:60 TO 990 

1130 IF P}:A=X:60 TO 1150 

1140 А=р 

1150 IF 8$(Y,8 TO 4Ң-1) <) B$(1 TO L):60 TQ 990 
1180 C=1:FOR dei TO P STEP 8; G$(V,J)=M$(1,C):C=C+1 
1170 END FOR J 

1180 END FOR I 

1190 END DEFine 

1200 : 


, 


15 
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1210 DEFine PROCedure VERTICAL 

1220 Р=Ү+ (1-1) 5: IF P<i OR P>20:60 TQ 990 
1230 FOR JzY TO P STEP 5 

1240 IF 6$(,X) O " ":60 TO 990 

1250 END FOR J 

1250 fei POR J=Y TO P STEP 8:6$(7, X) =М%(1,С):С=С+1 
1270 END FOR J 

1280 END FOR I 

1290 END DEFine 

1300 : 

1310 DEFine PROCedure HAUT BAS 


1330 PzX*(L-1) 48: IF P<1 OR P220:60 TQ 990 
1340 IF YsLt241 OR Y4L12520:60 TO 990 
1350 С=Ү:А=1:Е08 Ј=Х TO P STEP 5 
1360 IF 6$(0,J) O " ":60 TO 990 
1370 C=C+Z:A=A+A:END FÜR J 

1380 С=Ү: А=1:РОК JzX TO P STEP 5 
1390 8$(C,0) :M$ (I,A) 

1400 CzC*2:820*1:END FOR d 

1410 END FOR I 

1420 END DEFine 

1430 : 

1440 : 

1450 DEFine PRÜCedure GRILLE 

1460 INK#1,0:PAPER#I, 2: BÜRDERÉT, 6: CLSH 

1470 FOR 1=1 Т0 20 

1480 PRINT," "Ss:PRINTES," 5 

1490 FOR 1-1 TQ 20- 

1500 IF 6$(1,J)=" " THEN 60 Т0 1530 

1510 PRINTEL,6$(I,J) 5". "REPRINTES, КІ, 3 

1520 60 TO 1540 

1530 CARS=CHRS (RND125*55) : PRINT, CARS; " "j:PRINTES,CARS;" "; 
1540 END FOR J 

1950 PRINT41: PRINTES 

1560 END FOR I 

1570 PRINTEZ: PRINTES, " IL Y A ";NM;” MOTS А TROUVER" 
1880 PRINTES 

1390 (0-0 

1400 FOR М0=1 TO NM 

1510 С0=С0+1 

1820 PRINTES, M$ (MD)? ?; 

1630 IF CO=5:PRINT#3:C0=0 

1640 END FOR М0 

1050 PRINTES: PRINTES: PRINTES 

15650 END DEFine 

1670 : 


1680 DEFine PRüCedure SOLUTION 

1590 CLS#0:PRINT#0, " IL Y A "NH;" MOTS A TROUVER" 
1700 PRINT#0,' TAPEZ UNE TOUCHE POUR LA SOLUTION’ :PAUSE-1 
1710 CLS#0:PRINT#0 VOICI LA SOLUTION 
1720 AT 0,0; 

1730 FOR 1=1 TO 20 

1740 FOR 1-1 TO 20 

1750 IF 68(1,J) <) " ЧАТ 1-1, (012) -15 : INK. 22РКІНТІН,6% 1,1; 
1780 END FOR 4 

1770 END FOR I 

1780 CLS&O:PRINT&O,'TAPEZ UNE TOUCHE POUR UNE AUTRE GRILLE” 
1790 PAUSE-1:RUN 

1800 END DEFine 


Voici un programme qui produit le calendrier de l'année et du 
mois que l'on veut. Le programme а besoin du fichier GPRINT РАТ 
du logiciel EASEL, donc assurez-vous que GPRINT PRT soit présent 
sur le même médium que le générateur de calendrier. 


Auteur: Jean-Claude Touzin 


10 REMark G&n&rateur de calendrier 
20 REMark par J.C. Touzin 

30 : 

100 а-КЕЗРЕ(812) 

110 LBYTES mdvi oprint ргі,а 

120 WINDOW 512,202,0,0:015 

130 CSIZE 2,1:PAPER 0 

140 CLS: INPUTV, "Mois (1-12)? "imois 
150 INPUT\, "Аппае (аага)? "jan 
150 CLS 

170 tizan-INT(,6+(1/nois)) 

180 t2-nois*123 (INT(.6*(1/nois))) 
190 tSzINTGSE (C241) /3) 

200 t4zINT(S1t1/4) 

210 tSzINT(t1/100) 

220 tazINT(£ 1/400) 

230 tst3st4st&-t5 

240 p, jourzt-71INT (£771 41 

280 SELect DN nois 

260 z1:moisss"Janvier":d jourz3i 
270 z2:mois$s"Füvrier":d jourz28:1F INT(an/4)=an/4 THEN d_jour=29 


280 z5:mois$z"Mars":d jourz3i 

290 z4inois$z"Avril":d jourz30 

300 -3:mois$z"Mai":d jour-3l 

310 z&:nois$z"Juin":d jourz30 

320 =7:mois$="Juillet":d jourz3i 

330 z8:mois$z"Aott":d jours3i 

340 =9:nois$="Septenbre":d_jour=30 

250 =10:nois$="Octobre":d_jour=3i 

360 =il:nois$="Novenbre":d jourz30 

370 =12:nois$="Décembre":d_jour=31 

380 END SELect 

390 mois an$zmois$ & " * kan 

400 АТ 1, (20-LEN (mois an$)/2): PRINT mois an$ 
410 PRINT " Dim Lun Mar Mer Jeu Ven бап! 
420 lignez3 

430 colz2*((p jourtà)-5] 

440 FOR jourzi TO d jour 

450 IF col>40 THEN col=2:ligne=ligneti 

460 AT ligne,col:PRINT jour 

470 col=col+é 

480 END FOR jour 

490 grille 

500 REMark 

510 (15#0:1=0 

520 PRINTAD,,, "1 Afficher un mois" 

530 PRINT&O,,,,, "2 Imprimante" 

540 PRINTEO,,,,, "S Quitter le programme" 

850 PRINTEO, V,,,, "Taper 1, 2 ou 3" 

960 c$z INKEYS (71) 

970 IF c$O "1" AND c$0"2" AND c$O "3" THEN 60 TO 540 
580 IF c$z1 THEN RUN14O 

590 IF c$22 THEN imprimante 

600 IF i THEN 60 TO 510 

510 STOP 

520 DEFine PROCedure imprimante 

630 OPENS, ser: PRINT#3, CHR (27) ; "O":CLOSE#S:REMark 1/8" interligne 
М0 Lei: 0150 

650 CALL a:REMark GPRINT РАТ 

660 END DEFine 

870 DEFine PROCedure grille 

880 POINT 7,92 

690 LINE TO 154,92 TO 154,21 TO 7,21 TO 7,92 
700 y=Bi 

710 FOR c= 1 TO &:POINT 7,y:LINE TO 184, ysyzy-10 
720 x=2b 

730 FOR c=i TO &:POINT x,21:LINE TO x,81:x2x422 
740 END DEFine 
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